' 静默启动项目工具的VB脚本
' 功能：启动指定的项目工具，且在执行过程中不显示命令窗口界面

' 创建Shell对象
Dim objShell
Set objShell = CreateObject("WScript.Shell")

' 获取当前脚本所在的目录
Dim strScriptDir
strScriptDir = objShell.CurrentDirectory

' 构建Run.bat的绝对路径
Dim strToolPath
strToolPath = strScriptDir & "\Run.bat"

' 使用Shell对象的Run方法启动工具
' 参数说明：
' 第一个参数：要执行的命令（用双引号括起来，以处理路径中的空格）
' 第二个参数：窗口样式（0表示隐藏窗口）
' 第三个参数：是否等待命令执行完成（False表示不等待）
objShell.Run Chr(34) & strToolPath & Chr(34), 0, False

' 清理对象
Set objShell = Nothing